home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / golf doc.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  120 lines
  1. 5 REM LOADER AND DOC FOR GOLF SYSTEM
  2. 7 REM AL JOHNSON--12302 COLERAINE CT-RESTON, VA 22091
  3. 10 DN$=""
  4. 15 PR$(1)="COURSE UPDATE":PR$(2)="GOLF HANDICAP"
  5. 33 POKE53281,15:POKE53280,12
  6. 35 PRINT"[147]";TAB(14);"GOLF SYSTEM"
  7. 40 PRINT"";TAB(18);"BY[151]"
  8. 50 PRINTTAB(14);"AL JOHNSON"
  9. 60 PRINTTAB(16);"[169][163][163][163][163][163][163][223]"
  10. 70 PRINTTAB(16);"        "
  11. 80 PRINTTAB(16);"     [146][144][215]  "
  12. 90 PRINTTAB(16);"        "
  13. 100 PRINTTAB(16);"  [146][144]# 1   ";"[169][163][223]"
  14. 110 PRINTTAB(16);"        ";"   "
  15. 120 PRINTTAB(16);"        ";"[146][223] [146][169]"
  16. 140 PRINTTAB(16);"[223]      [146][169]"
  17. 150 PRINTTAB(13);"[169] [223]"
  18. 160 PRINTTAB(13);"[223] [146][169]"
  19. 170 FORX=1TO1500:NEXTX
  20. 200 PRINT"[147]";TAB(13);"GOLF SYSTEM       [150]SCRN 1"
  21. 210 PRINT"[151]  THESE PROGRAMS WERE IN WORKING ORDER"
  22. 220 PRINT"  WHEN PLACED IN THE PUBLIC DOMAIN.  IF"
  23. 230 PRINT"  YOU HAVE PROBLEMS, YOU MAY HAVE"
  24. 240 PRINT"RECEIVED A BAD COPY FROM SOMEONE."
  25. 250 PRINT"IF YOU LIKE THE PROGRAMS OR HAVE ANY"
  26. 260 PRINT"SUGGESTIONS, LET ME KNOW.  IT IS"
  27. 270 PRINT"INTERESTING TO SEE WHERE THESE THINGS"
  28. 280 PRINT"GET TO."
  29. 290 PRINT"";TAB(13);"AL JOHNSON"
  30. 300 PRINTTAB(13);"12302 COLERAINE CT."
  31. 310 PRINTTAB(13);"RESTON, VA    22091"
  32. 320 GOSUB9000
  33. 330 PRINT"[147]";TAB(13);"GOLF SYSTEM       [150]SCRN 2[151]"
  34. 340 PRINT"THE GOLF SYSTEM CONSISTS OF TWO"
  35. 350 PRINT"PROGRAMS WHICH ALLOW YOU TO ENTER"
  36. 360 PRINT"YOUR GOLF SCORES, CALCULATE YOUR"
  37. 370 PRINT"HANDICAP AND SEE ASSORTED STATISTICS."
  38. 380 PRINT"THIS PROGRAM IS NOT REQUIRED, BUT"
  39. 390 PRINT"CONTAINS DOCUMENTATION AND WILL LOAD"
  40. 400 PRINT"AND RUN THE OTHER PROGRAMS."
  41. 410 PRINT"THE PROGRAMS ARE:"
  42. 420 PRINT"COURSE UPDATE:  ESTABLISH PARS,"
  43. 430 PRINT"RATING, ETC."
  44. 440 PRINT"GOLF HANDICAP:  ENTER ROUNDS, CALC"
  45. 450 PRINT"HANDICAP"
  46. 460 GOSUB9200
  47. 500 PRINT"[147]";TAB(18);"MENU"
  48. 510 PRINT"      LOAD";TAB(32);"DOC"
  49. 520 PRINT"[151]";TAB(7);"1";TAB(14);"COURSE UPDATE";TAB(33);"A"
  50. 530 PRINT"[151]";TAB(7);"2";TAB(14);"GOLF HANDICAP";TAB(33);"B"
  51. 535 PRINT"";OM$;"[146][151]":OM$=""
  52. 540 GET K$:IF K$="" THEN 540
  53. 550 IF K$<>"1"ANDK$<>"2"ANDK$<>"A"ANDK$<>"B"THENOM$="BAD CHOICE":GOTO500
  54. 560 K=VAL(K$):IFK=0THEN 800
  55. 600 PRINT"[147]":PRINT"NEW"
  56. 610 PRINT"LOAD"CHR$(34)"0:"PR$(K)CHR$(34)",8"
  57. 620 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
  58. 630 FORX=631 TO 634:POKEX,13:NEXTX
  59. 640 POKE198,4:END
  60. 800 IF K$="A"THENGOSUB1000:GOTO500
  61. 810 IF K$="B"THENGOSUB2000:GOTO500
  62. 820 OM$="BAD CHOICE":GOTO500
  63. 1000 PRINT"[147]";TAB(14);"COURSE UPDATE    [150]SCRN 1"
  64. 1010 PRINT"[151]THIS PROGRAM IS USED TO DEFINE THE"
  65. 1020 PRINT"COURSES PLAYED.  A COURSE MUST BE"
  66. 1030 PRINT"ENTERED WITH THIS PROGRAM PRIOR TO"
  67. 1040 PRINT"ENTERING ANY ROUNDS."
  68. 1050 PRINT"TAKE THE COURSE SCORECARD AND ENTER"
  69. 1060 PRINT"THE INFORMATION AS PROMPTED BY THE ?[151]."
  70. 1070 PRINT"NOTE THAT IN MANY CASES RETURN IS NOT"
  71. 1080 PRINT"REQUIRED.  YOU MUST ENTER TOTAL PAR"
  72. 1090 PRINT"FOR THE COURSE SO IT CAN BE USED AS"
  73. 1100 PRINT"A CROSS CHECK."
  74. 1110 PRINT"IF YOU MAKE A MISTAKE DURING DATA"
  75. 1120 PRINT"ENTRY, USE F1[146] TO DELETE.  THE DEL KEY"
  76. 1130 PRINT"WON'T WORK."
  77. 1140 GOSUB9000
  78. 1200 PRINT"[147]";TAB(14);"COURSE UPDATE   [150]SCRN 2"
  79. 1210 PRINT"[151]IF YOU NEED TO MODIFY AN ENTRY, A"
  80. 1220 PRINT"SEPARATE MENU LINE WILL APPEAR.  MAKE"
  81. 1230 PRINT"YOUR CHANGES, THEN ENTER 'Q' TO"
  82. 1240 PRINT"RETURN TO THE NORMAL MODE."
  83. 1250 GOSUB9200:RETURN
  84. 2000 PRINT"[147]";TAB(14);"GOLF HANDICAP   [150]SCRN 1"
  85. 2010 PRINT"[151]THIS PROGRAM ALLOWS YOU TO ENTER"
  86. 2020 PRINT"ROUNDS OF GOLF AND SEE STATISTICS ON"
  87. 2030 PRINT"THEM."
  88. 2040 PRINT"THE MENU WILL ALLOW YOU TO LOAD, SAVE"
  89. 2050 PRINT"AND BACKUP THE FILE.  THESE OPTIONS"
  90. 2060 PRINT"SHOULD BE SELF EXPLANATORY.  THERE"
  91. 2070 PRINT"ARE THREE OTHER OPTIONS TO USE."
  92. 2080 PRINT"ROUNDS[151] IS USED TO ENTER, REVIEW OR"
  93. 2090 PRINT"MODIFY ROUNDS PLAYED.  YOU CAN ENTER"
  94. 2100 PRINT"SCORES AND THE NUMBER OF GREENS AND"
  95. 2110 PRINT"FAIRWAYS HIT IN REGULATION.  IF YOU"
  96. 2120 PRINT"WISH, HIT RETURN TO DEFAULT TO 'N'"
  97. 2130 PRINT"IF YOU MODIFY A ROUND, A DIFFERENT"
  98. 2140 PRINT"MENU LINE WILL APPEAR.  YOU WILL"
  99. 2150 PRINT"REMAIN IN THE CHANGE MODE UNTIL YOU"
  100. 2160 PRINT"ENTER 'Q'."
  101. 2170 GOSUB9000
  102. 2200 PRINT"[147]";TAB(14)"GOLF HANDICAP   [150]SCRN 2"
  103. 2210 PRINT"[151]HANDICAP[151] - CALCULATES AND DISPLAYS"
  104. 2220 PRINT"YOUR HANDICAP USING (I THINK) USGA"
  105. 2230 PRINT"METHODS.  HANDICAPS CAN BE DONE FOR"
  106. 2240 PRINT"ALL COURSES OR ONE IN PARTICULAR."
  107. 2250 PRINT"FIVE ROUNDS MUST BE PLAYED TO"
  108. 2260 PRINT"ESTABLISH A HANDICAP."
  109. 2270 PRINT"STATISTICS[151] - SHOWS AVERAGE NUMBER OF"
  110. 2280 PRINT"STROKES, GREENS HIT AND PUTTS AT THE"
  111. 2290 PRINT"VARIOUS COURSES PLAYED."
  112. 2300 GOSUB9200:RETURN
  113. 8999 PRINT"[147]":END
  114. 9000 PRINT"";DN$;"MORE-PRESS A KEY[151]"
  115. 9010 GETK$:IFK$=""THEN9010
  116. 9020 RETURN
  117. 9200 PRINT"";DN$;"END-PRESS A KEY[151]"
  118. 9210 GETK$:IFK$=""THEN9210
  119. 9220 RETURN
  120.